home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G35F / G35_NANI.Dxr / 00092.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  516 b   |  24 lines
  1. global gloch, glocv, x1, x2, y1, y2, high, haba
  2.  
  3. on testd
  4.   if (glocv >= y2) and (glocv <= y1) then
  5.     set glocv to glocv + 5
  6.     if glocv > y1 then
  7.       set glocv to y1
  8.     end if
  9.     set the rect of sprite 1 to rect(gloch, glocv, gloch + haba, glocv + high)
  10.   else
  11.   end if
  12. end
  13.  
  14. on testu
  15.   if (glocv >= y2) and (glocv <= y1) then
  16.     set glocv to glocv - 5
  17.     if glocv < y2 then
  18.       set glocv to y2
  19.     end if
  20.     set the rect of sprite 1 to rect(gloch, glocv, gloch + haba, glocv + high)
  21.   else
  22.   end if
  23. end
  24.